My meme

I was scrolling through stats memes on Google then came across one that mentioned using R in stats and it showed a picture that said “Hackerman”, from that i decided to share my feelings of trying to learn R while having to complete this project.

library(magick)

meme <- image_read("https://i.kym-cdn.com/entries/icons/original/000/021/464/14608107_1180665285312703_1558693314_n.jpg") %>%
  image_scale(450) %>% # Getting the image
  image_annotate(text = "Me with no R experience", font = "Impact", size = "30", gravity = "North", color = "Black") %>% # applying the text
  image_annotate(text = "Me with no R experience", font = "Impact", size = "30", gravity = "North", color = "White") %>%
  image_annotate(text = "Trying to make a meme", font = "Impact", size = "30", gravity = "South", color = "Black") %>%
  image_annotate(text = "Trying to make a meme", font = "Impact", size = "30", gravity = "South", color = "White")

canvas <- image_blank(450, 80, "Black") #

final <- image_append(c(meme, canvas), stack = TRUE) %>%
  image_annotate("PAIN", font = "Georgia Serif", size = "55", gravity = "South", color = "White")

image_write(final, "my_meme.png") # Image file conversion

My animation

Theres not much deep thought and motivation for this, i just thought it would be funny to show the progression of a “gymbro” and how he discovers creatine and gets much stronger.

library(magick)

skinny <- image_read("https://preview.free3d.com/img/2018/09/2174892047389951922/r04b2k6q.jpg") # Importing all the images for the animated gif

light <- image_read("https://www.dellanave.com/wp-content/uploads/2013/08/stage-one-deadlift-clean-and-press-07072011.jpg")

creatine <- image_read("https://www.shutterstock.com/image-photo/word-creatine-written-on-white-260nw-2173955809.jpg")

heavy <- image_read("https://www.strongfirst.com/wordpress/wp-content/uploads/2020/10/StrongFirst-heavy-deadlift.jpg") %>%
  image_modulate(brightness = 300) # Image was too dark

the_gif <- image_resize(c(skinny, light, creatine, heavy), "300x300!") %>% # This is the making of the gif and combining all the images
  image_annotate("4 stages of a gymbro:", size = 25, gravity = "North", color = "Crimson", font = "Comic Sans") %>%
  image_morph(frames = 25) %>%
  image_animate(optimize = TRUE)

image_write(the_gif, "my_animation.gif") # File conversion

The index

body {background-color: #98FB98}

h1 {text-align: center; font-family: 'Lobster', cursive; color: #98FB98; background-color: #4D4D4D; padding: 30px; margin: 20px}

h2 {text-align: center; font-family: 'lobster', cursive; color: #98FB98; background-color: #4D4D4D; padding: 10px; margin: 20px}

p{font-weight: bold}